home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 143 / 143side3.d64 / list high boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-30  |  671b  |  30 lines
  1. 10 if x=1 then 40
  2. 20 dv=peek(186)
  3. 25 if dv<8 then dv=8
  4. 30 x=1:load"listwedge.49152",dv,1
  5. 40 poke774,3:poke775,192
  6. 60 goto 200
  7. 70 rem jiffydos users may wish to
  8. 80 rem remove line 60.
  9. 82 rem   to enter 'list wedge':
  10. 85 rem   a)  hold down shift key
  11. 90 rem   b)  hold down f1 key
  12. 100 rem  c)  release shift key
  13. 110 rem  d)  release f1 key
  14. 115 f1$="@$:?*"+chr$(13)+chr$(0)
  15. 120 f2$="list"+chr$(13)+chr$(0)
  16. 125 f3$="/"+chr$(0)
  17. 130 f4$="@t"+chr$(0)
  18. 135 f5$="^"+chr$(0)
  19. 140 f6$="_  "+chr$(34)+"@:"+chr$(0)
  20. 145 f7$="%"+chr$(0)
  21. 150 f8$="@  "+chr$(34)+"s:"+chr$(0)
  22. 155 f$=f1$+f3$+f5$+f7$+f2$+f4$+f6$+f8$
  23. 160 buf=820
  24. 165 for i=1 to len(f$)
  25. 170 poke(buf+i-1),asc(mid$(f$,i,1))
  26. 172 next
  27. 175 poke 176,buf-( 256*(int(buf/256)) )
  28. 180 poke 177,int(buf/256):poke155,0
  29. 200 clr:new
  30.